package Suma_Uno_Y_Uno is
   Primero   : Integer := 1;
   Segundo   : Integer := 1;
   Resultado : Integer := 0;
   procedure Sumar (Primero   : in out Integer,
                    Segundo   : in out Integer,
                    Resultado : in out Integer);
end Suma_Uno_Y_Uno;

package body Suma_Uno_Y_Uno is
   procedure Sumar (Primero   : in out Integer,
                    Segundo   : in out Integer,
                    Resultado : in out Integer) is
   begin
      Resultado  := Primero + Segundo;
   end Sumar;

begin
   Sumar (Primero, Segundo, Resultado);
end Suma_Uno_Y_Uno;
